home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #1 / Amiga Plus Extra 1997 #1.iso / programme / tools / leoutils / beep.a < prev    next >
Text File  |  1995-03-14  |  492b  |  34 lines
  1. _LVOOldOpenLibrary    EQU    -408
  2. _LVOCloseLibrary    EQU    -414
  3. _LVODisplayBeep        EQU    -96
  4.  
  5.     section text,CODE
  6.  
  7. main:
  8.     move.l    a6,-(sp)
  9.     move.l    $4.w,a6
  10.     lea    IntuitionName(pc),a1
  11.     lea    _LVOOldOpenLibrary(a6),a0
  12.     jsr    (a0)
  13.  
  14.     move.l    d0,a6
  15.     sub.l    a0,a0
  16.     lea    _LVODisplayBeep(a6),a1
  17.     jsr    (a1)
  18.  
  19.     move.l    a6,a1
  20.     move.l    $4.w,a6
  21.     lea    _LVOCloseLibrary(a6),a0
  22.     jsr    (a0)
  23.  
  24.     move.l    (sp)+,a6
  25.     moveq.l    #0,d0
  26.     rts
  27.  
  28. IntuitionName:
  29.     dc.b    "intuition.library",0
  30. Version:
  31.     dc.b    "$VER:Beep 1.0 (14.3.95) ©1995 Leopold-Soft",0
  32.  
  33.     END
  34.